home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 081-090 / amok81 / m2 / talkdemo / txt / talkgadgets.def < prev    next >
Text File  |  1993-11-04  |  842b  |  42 lines
  1. DEFINITION MODULE TalkGadgets;
  2. (*$ LargeVars:=FALSE *)
  3.  
  4. FROM IntuitionD    IMPORT    GadgetPtr;
  5. FROM GadToolsD    IMPORT    buttonIDCMP,mxIDCMP,sliderIDCMP,stringIDCMP,cycleIDCMP;
  6. FROM Narrator    IMPORT    NewNarrator;
  7. IMPORT TB:TalkBase;
  8.  
  9. CONST
  10.   idcmpFlags=buttonIDCMP+mxIDCMP+sliderIDCMP+stringIDCMP+cycleIDCMP;
  11.  
  12. TYPE
  13.   CentPhoneRange=[0..10];
  14.  
  15.   Gadgets=(
  16.     rate,pitch,volume,sampFreq,
  17.     f0Enth,f0Perturb,f1Adj,f2Adj,f3Adj,
  18.     a1Adj,a2Adj,a3Adj,articulate,avBias,
  19.     afBias,priority,
  20.     centralize,
  21.     mode,
  22.     sex,
  23.     centphon,
  24.     text,phonemes,
  25.     speak,abort);
  26.  
  27. VAR
  28.   (*
  29.    * Automatisch initialisiert und gelöscht!
  30.    * userData=ORD(Gadget)
  31.    *)
  32.   gadgets:ARRAY Gadgets OF GadgetPtr;
  33.  
  34. PROCEDURE Disable(g:Gadgets);
  35. PROCEDURE Enable(g:Gadgets);
  36.  
  37. PROCEDURE SetNarr(n:TB.NarrData);
  38. PROCEDURE UpdatePhonemes;
  39. PROCEDURE SetCentPhone(nr:TB.CentrPhons);
  40.  
  41. END TalkGadgets.def
  42.